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Nothing compares with the C lan- 
guage for working with bits. C pro- 
vides a rich set of signed and un- 
signed number formats, along with many 
intrinsic bit-manipulation operators. 
However, most of the popular rapid-ap- 
plication-development Windows lan- 
guages lack C's ability to easily work with 
bits. Visual Basic is such a language. Al- 
though it's hard to find a faster language 
to develop a small to midsized application 
in Windows, Visual Basic starts to show 
its weakness when it comes time to talk to 
hardware. Hardware programming is 
usually bit-oriented. That is, it's necessary 
to turn bits on and off or shift out serial 
streams to get the hardware to operate 
correctly. The ActiveX control serves just 
these types of bit-manipulation needs 
(Figure 1). The control includes func- 
tions for changing binary strings to num- 
bers, a hex-output function, the ability to 


set and clear bits in a word, and the ever- 
needed shift-left and -right functions. As 
an example, many of the three-wire seri- 
al devices need to have a setup word shift- 
ed to them. Suppose you need to shift the 
setup word 01111101 first to an A/D con- 
verter to initiate a conversion on some 
channel. You can use the functions in the 
ActiveX control to easily effect the shift 
operation, as follows: 

Setup.word = Bits ("01111101") 
'Returns 125 
For i = to 7 

Val = ShiftRight_8(setup_word,0) 
'write val to the A/D here 
next i 

In the above example, val has the 
values 1, 0, 1, 1, 1, 1, 1, during each it- 
eration of the loop. The routine can then 
clock these bits to the A/D converter as 


required by the hardware. If the opera- 
tion requires MSB first, you can use the 
ShiftLeft function. The SetBit and Clear- 
Bit functions are useful when using a port 
as clock and data lines, because you can 
set individual bits as needed instead of 
doing entire port writes. Any modern 
programming language that can use Ac- 
tiveX controls, such as Agilent VEE, Vi- 
sual Basic, Delphi, and others, can use the 
functions given here. You can download 
the ActiveX control from EDJVs Web site, 
www.ednmag.com. Click on "Search 
Databases" and then enter the Software 
Center to download the file for Design 
Idea #2534. The routine includes all the 
functions listed in Figure 1, plus a few 
more, with application examples. (DI 
#2534) 
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Figure 1 


Function GetBit(ByVal x As Long, ByVal n As 1 
Returns the value of bit n in Input value x. Returns 1 or If bit 
is set or not. x - 1 to 16 bit, n - • LSB. 

■ 1. 


Function Bit»(By val inval As String) As Long 
Given a representation of a binary string, returns the 
value, inval may be any length from 1 to 16 bits 
Example: Bits("101") returns 6. 


Function BltsStr(ByVal inval As Long, ByVal sizeof As Integer) As String 
Given a number, returns with a representation of a binary string, 
sizeof Is the width of the return field (1 to 1 « bits). 
Example: BitsStri.82,8) returns "01010010" 


Function HexStrtByVal Inval As Long, ByVal sizeof As 
Given a number, returns with a representation of a hex 
f is the width of the return field (1 to 16 bits). 
: HexStrf.179,8) returns "B3" 


Function ClearBit(ByVal x As Long, ByVal n As Integer) As Long 
Clears bit position n in input x. Returns new x value, 
x may be 1 to 18 bits, n - « LSB 
: ClearBitd 8,4) returns 0. 


Function SetBlt(ByVal x As Long, ByVal n As Integer) As Long 
Sets bit n in input value x. Returns new x. x i 
width 1 to 16 bits, n ■ « LSB. 
e: SetBlt(0,4) returns 16 


Function ShiftRight 8(ByRefxAs 
Shifts the 8 bit value x right by 1 
Returns bit shifted out. 
Example. ShiftRlght_8(12»,1) Re 


; ByVal y As Integer) As 


1 1 and the new value for x (was 129) 


Function ShrftRight_16(ByRef x As Long, ByVal y As Integer) As Integer 
Shifts the 16 bit value x right by 1 place. Bit shifted in Is y. 
Returns bit shifted out 

Example: ShrftRight_16(1.1) Returns 1 and the new value for x (waa 1) 
is 32768. 


Function ShiftLeft_8(ByRef x As Integer, ByVal y As Integer) As Integer 
Shifts the 8 bit value x left by 1 place. Bit shifted In is y. 
Returns bit shifted out 

Example: ShiftLeft 8(1,0) returns and the new value for x (was 1) 

Is 2. 


Function ShiftLeft 18(ByRef x As Long, ByVal y As Integer) As Integer 
Shifts the 16 bit value x left by 1 place. Bit shifted in is y. 
Returns bit shifted out 

Example: ShiftLeft 16(32768,1) returns 1 and t 
(was 32768) is 1 


Function RotateRlght 8(ByVal x As Integer) As Integer 
Rotates the 8 bit velue x right by 1 place. 
Example: RotateRlght_8(1) returns 128. 


Function RotateRlght_16(ByVat x As Long) As Long 
Rotates the 16 bit value x right by 1 place. Returns new 
Example: RotateRlght_16(1) returns 32768. 


Function RotataLeft 8(Byval x As imager) As 
Routes the 8 bit value x left by 1 place. Retun 
Example: RotateLeft_8(64) returns 128 

Function RotataLeft 16(ByVal x Aa Long) As Long 
Rotates the 16 bit value x left by 1 place. Returns new 
: RotateLeft_16(32769) returns 3. 


An ActiveX control offers many handy functions for bit manipulation. 
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